home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / DevPac v3.02b.adf / include / exec / initializers.i < prev    next >
Text File  |  1991-11-20  |  880b  |  55 lines
  1.     IFND    EXEC_INITIALIZERS_I
  2. EXEC_INITIALIZERS_I    SET    1
  3. **
  4. **    $Filename: exec/initializers.i $
  5. **    $Release: 1.3 $
  6. **
  7. **    
  8. **
  9. **    (C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
  10. **        All Rights Reserved
  11. **
  12.  
  13. INITBYTE    MACRO    * &offset,&value
  14.         DC.B    $e0
  15.         DC.B    0
  16.         DC.W    \1
  17.         DC.B    \2
  18.         DC.B    0
  19.         ENDM
  20.  
  21. INITWORD    MACRO    * &offset,&value
  22.         DC.B    $d0
  23.         DC.B    0
  24.         DC.W    \1
  25.         DC.W    \2
  26.         ENDM
  27.  
  28. INITLONG    MACRO    * &offset,&value
  29.         DC.B    $c0
  30.         DC.B    0
  31.         DC.W    \1
  32.         DC.L    \2
  33.         ENDM
  34.       
  35. INITSTRUCT  MACRO   * &size,&offset,&value,&count
  36.         DS.W    0
  37.         IFC        '\4',''
  38. COUNT\@        SET        0
  39.         ENDC
  40.         IFNC    '\4',''
  41. COUNT\@        SET        \4
  42.         ENDC
  43. CMD\@        SET        (((\1)<<4)!COUNT\@)
  44.         IFLE    (\2)-255
  45.         DC.B    (CMD\@)!$80
  46.         DC.B    \2
  47.         MEXIT
  48.         ENDC
  49.         DC.B    CMD\@!$0C0
  50.         DC.B    (((\2)>>16)&$0FF)
  51.         DC.W    ((\2)&$0FFFF)
  52.         ENDM
  53.  
  54.     ENDC    ; EXEC_INITIALIZERS_I
  55.